1 REM *********************************
2 REM * *
3 REM * FLY HIGH *
4 REM * *
5 REM *(W)/(C) IN 1997 BY LAGUNE SOFT*
6 REM * *
7 REM *THE GRANDMASTER IS WATCHING YOU*
8 REM * *
9 REM *********************************
10 POKE53280,12:POKE53281,11:A=50:B=A:F=A:L=A:N=A:W=0:T=8:AL=20:Y=1977:GE=25
12 GOSUB9998:PRINT"1 = [211]TART"
15 PRINT"2 = [197]INSTELLUNGEN"
16 GOSUB9996
17 IFA$="1"THEN100
20 IFA$="2"THEN50
21 GOTO16
50 REM EINSTELLUNGEN
51 GOSUB9998:GOSUB9800:GOSUB20000
52 PRINT"[197]INSTELLUNGEN: ([205]ENU = 1) [183][183][183][183][183][183][183][183][183][183][183][183][183]"
53 PRINT"[211]TAERKEN DER [211]PRINGER ZU [194]EGINN:"
54 PRINT"([193])NFAHR(T) : "A"%"
55 PRINT"[193](B)SPRUN(G) : "B"%"
56 PRINT"([198])LUGPHAS(E) : "F"%"
57 PRINT"([204])AND(U)NG : "L"%"
58 PRINT"([206])ERVENSTAER(K)E: "N"% ([202])A(H)R : "Y+AL
59 PRINT"[212]ASTE = +/-"
60 PRINT"[212]ASTE & [211]HIFT = +5/-5 (AUSSER [202]AHR)"
61 PRINT"[212]ASTE & [195]= = +10/-10 (AUSSER [202]AHR)"
62 GOSUB9996
63 IFA$="A"THENA=A+1
64 IFA$="T"THENA=A-1
65 IFA$="[193]"THENA=A+5
66 IFA$="[212]"THENA=A-5
67 IFA$="[176]"THENA=A+10
68 IFA$="[163]"THENA=A-10
69 IFA$="B"THENB=B+1
70 IFA$="G"THENB=B-1
71 IFA$="[194]"THENB=B+5
72 IFA$="[199]"THENB=B-5
73 IFA$="[191]"THENB=B+10
74 IFA$="[165]"THENB=B-10
75 IFA$="F"THENF=F+1
76 IFA$="E"THENF=F-1
77 IFA$="[198]"THENF=F+5
78 IFA$="[197]"THENF=F-5
79 IFA$="[187]"THENF=F+10
80 IFA$="[177]"THENF=F-10
81 IFA$="L"THENL=L+1
82 IFA$="U"THENL=L-1
83 IFA$="[204]"THENL=L+5
84 IFA$="[213]"THENL=L-5
85 IFA$="[182]"THENL=L+10
86 IFA$="[184]"THENL=L-10
87 IFA$="N"THENN=N+1
88 IFA$="K"THENN=N-1
89 IFA$="[206]"THENN=N+5
90 IFA$="[203]"THENN=N-5
91 IFA$="[170]"THENN=N+10
92 IFA$="[161]"THENN=N-10
93 IFA$="1"THEN12
94 IFA$="J"THENY=Y+1
95 IFA$="H"THENY=Y-1
99 GOTO50
100 REM ONE-PLAYER-MODE
101 GOSUB9800:GOSUB10000:GOSUB11000
102 Z=0:GOSUB9998:PRINT"[206]ATIONENWAHL: [183][183][183][183][183][183][183][183][183][183][183][183]"
103 PRINT"[193] = [196]EUTSCHLAND [194] = [198]INNLAND"
104 PRINT"[195] = [206]ORWEGEN [196] = [207]ESTERREICH"
105 PRINT"[197] = [202]APAN [198] = [211]LOWENIEN"
106 PRINT"[199] = [211]CHWEIZ [200] = [212]SCHECHEI"
107 PRINT"[201] = [208]OLEN"
108 PRINT"[202] = [210]USSLAND [203] = [198]RANKREICH"
109 PRINT"[204] = [211]CHWEDEN [205] = [201]TALIEN"
110 PRINT"[206] = [213].[211].[193]."
111 GOSUB9996
112 IFA$="A"THENN$="[199]ERMANY"
113 IFA$="B"THENN$="[198]INLAND"
114 IFA$="C"THENN$="[206]ORWAY"ANDN3$="[204]AGUNE"
115 IFA$="D"THENN$="[193]USTRIA"
116 IFA$="E"THENN$="[202]APAN"
117 IFA$="F"THENN$="[211]LOWENIA"ANDN3$="[204]AGUNE"
118 IFA$="G"THENN$="[211]UISSE"ANDN3$="[204]AGUNE"
119 IFA$="H"THENN$="[212]SCHECHY"ANDN3$="[204]AGUNE"
121 IFA$="I"THENN$="[208]OLAND"ANDN3$="[204]AGUNE"
122 IFA$="J"THENN$="[210]USSIA"ANDN3$="[204]AGUNE"
123 IFA$="K"THENN$="[198]RANCE"ANDN3$="[204]AGUNE"
124 IFA$="L"THENN$="[211]WEDEN"ANDN3$="[204]AGUNE"
125 IFA$="M"THENN$="[201]TALY"ANDN3$="[204]AGUNE"
126 IFA$="N"THENN$="[213][211][193]"ANDN3$="[204]AGUNE"
128 PRINT"[199]EWAEHLTE [206]ATION: "N$
129 PRINT"[203]ORREKT ([202]/[206]) ?"
130 GOSUB9996
131 IFA$="J"THEN140
132 IFA$="N"THEN102
133 GOTO130
140 GOSUB9998
141 INPUT"[214]ORNAME ";VN$
142 INPUT"[206]ACHNAME ";NN$
143 PRINT"[194]EGINN DER ERSTEN [211]AISON ..."
144 GOSUB9996
150 IFT=8THENGOSUB20000
151 IFT=8THENW=W+1:IFT=8THENUI=0:IFT=8THENT=1:REM HAUPTMENU
152 IFW=17THENGOSUB12000
153 IFT=6THEN1000
154 GOSUB9998:TA=0:TB=0:PRINT"[200]AUPTMENU: [183][183][183][183][183][183][183][183][183]"
155 PRINTVN$" "NN$:PRINT"[206]ATION: "N$:PRINT"[215]OCHE :"W:PRINT"[212]AG :"T:PRINT"[193]LTER :"AL:PRINT"[202]AHR :"Y+AL
156 PRINT"1 = [212]RAINING 2 = [197]REIGNISSE":IFT=7THEN7005
157 PRINT"3 = [213]EBERBLICK":IFXA=2ANDT=7THEN1070
158 PRINT"4 = [206]AECHSTE [215]OCHE 5 = [197][206][196][197]":RC$="":XA=0:RF$="":RE$=""
159 INPUT"[215]AS NUN ";X
160 IFX<1ORX>5THEN154
161 IFX=1THEN300
162 IFX=2THEN700
163 IFX=3THEN200
165 IFX=4THEN600
166 IFX=5THEN650
200 REM UEBERBLICK
201 GOSUB9998
202 PRINT"[213]EBERBLICK: [183][183][183][183][183][183][183][183][183][183]"
203 PRINT"1 = [210]ANGLISTE 2 = [215]ETTKAEMPFE"
204 PRINT"3 = [215]OCHENPLANUNG 4 = [211]TATISTIK"
205 PRINT"5 = [200]AUPTMENU"
206 INPUT"[215]AS NUN";X
207 IFX<1ORX>5THEN200
208 IFX=1THEN2000
209 IFX=2THEN220
210 IFX=3THEN500
211 IFX=4THEN900
212 IFX=5THEN154
220 REM WETTKAEMPFE
221 GOSUB9998
222 PRINT"[215]OCHE [215]ETTKAMPF "
223 GOSUB9920
224 PRINT" 1 2 NORMALE [211]PRINGEN"
225 PRINT" 2 2 NORMALE [211]PRINGEN"
226 PRINT" 3 2 NORMALE [211]PRINGEN"
227 PRINT" 4 2 [212]OURNEE-[211]PRINGEN"
228 PRINT" 5 2 [212]OURNEE-[211]PRINGEN"
229 PRINT" 6 2 NORMALE [211]PRINGEN"
230 PRINT" 7 2 NORMALE [211]PRINGEN"
231 PRINT" 8 2 NORMALE [211]PRINGEN"
232 PRINT" 9 2 [211]KI-[198]LIEGEN"
233 PRINT" 10 2 NORMALE [211]PRINGEN"
234 PRINT" 11 FREI"
235 PRINT" 12 [215][205]-[203]LEINSCHANZE"
236 PRINT" 13 [215][205]-[199]ROSSSCHANZE"
238 PRINT" 14 2 NORMALE [211]PRINGEN"
239 PRINT" 15 2 NORMALE [211]PRINGEN"
240 PRINT" 16 2 [211]KI-[198]LIEGEN"
248 GOSUB9996
249 GOTO200
300 REM TRAINING
301 GOSUB9998
302 PRINT"[212]RAINING: [183][183][183][183][183][183][183][183]"
303 PRINT"1 = [193]NFAHRT 2 = [193]BSPRUNG"
304 PRINT"3 = [198]LUGPHASE 4 = [204]ANDUNG"
305 PRINT"5 = [200]AUPTMENU"
306 INPUT"[215]AS NUN";X
307 IFX<1ORX>5THEN300
308 IFX=1THEN320
309 IFX=2THEN360
310 IFX=3THEN400
311 IFX=4THEN440
312 IFX=5THEN154
320 GOSUB9998
321 PRINT"[193]NFAHRT: [183][183][183][183][183][183][183]"
322 PRINT"[204]EISTUNG:"A"%
323 [153]"(null)RAINIEREN (MID$/(null)) ?"
324 [141]9996
325 [139]A$[178]"J"[167]330
326 [139]A$[178]"N"[167]300
327 [137]324
330 UG[178]1:OG[178]5:[141]9990
331 A1[178]Z2
332 UG[178]1:OG[178]7:[141]9990
333 [139]Z2[178]1[167]350
334 [139]Z2[178]2[167]350
335 [139]Z2[178]3[167]340
336 [139]Z2[178]4[167]340
337 [139]Z2[178]5[167]340
338 [139]Z2[178]6[167]340
339 [139]Z2[178]7[167]350
340 A[178]A[170]A1:[139]A[177]100[167]A[178]100
341 [153]"STR$AS (null)RAINING LIEF GUT."
342 [153]"(null)EUE (null)EISTUNG:"A"%
343 T=T+1
344 GOSUB9996
345 GOTO150
350 A=A-A1:IFA<0THENA=0
351 PRINT"[196]AS [212]RAINING LIEF MIES."
352 PRINT"[206]EUE [204]EISTUNG:"A"%
353 T[178]T[170]1
354 [141]9996
355 [137]150
360 [141]9998
361 [153]"ATNBSPRUNG: USRUSRUSRUSRUSRUSRUSRUSR"
362 [153]"(null)EISTUNG:"B"%
363 PRINT"[212]RAINIEREN ([202]/[206]) ?"
364 GOSUB9996
365 IFA$="J"THEN370
366 IFA$="N"THEN300
367 GOTO364
370 UG=1:OG=5:GOSUB9990
371 B1=Z2
372 UG=1:OG=7:GOSUB9990
373 IFZ2=1THEN390
374 IFZ2=2THEN390
375 IFZ2=3THEN380
376 IFZ2=4THEN380
377 IFZ2=5THEN380
378 IFZ2=6THEN380
379 IFZ2=7THEN390
380 B=B+B1:IFB>100THENB=100
381 PRINT"[196]AS [212]RAINING LIEF GUT."
382 PRINT"[206]EUE [204]EISTUNG:"B"%
383 T[178]T[170]1
384 [141]9996
385 [137]150
390 B[178]B[171]B1:[139]B[179]0[167]B[178]0
391 [153]"STR$AS (null)RAINING LIEF MIES."
392 [153]"(null)EUE (null)EISTUNG:"B"%
393 T=T+1
394 GOSUB9996
395 GOTO150
400 GOSUB9998
401 PRINT"[198]LUGPHASE: [183][183][183][183][183][183][183][183][183]"
402 PRINT"[204]EISTUNG:"F"%
403 [153]"(null)RAINIEREN (MID$/(null)) ?"
404 [141]9996
405 [139]A$[178]"J"[167]410
406 [139]A$[178]"N"[167]300
407 [137]404
410 UG[178]1:OG[178]5:[141]9990
411 F1[178]Z2
412 UG[178]1:OG[178]7:[141]9990
413 [139]Z2[178]1[167]430
414 [139]Z2[178]2[167]430
415 [139]Z2[178]3[167]420
416 [139]Z2[178]4[167]420
417 [139]Z2[178]5[167]420
418 [139]Z2[178]6[167]420
419 [139]Z2[178]7[167]430
420 F[178]F[170]F1:[139]F[177]100[167]F[178]100
421 [153]"STR$AS (null)RAINING LIEF GUT."
422 [153]"(null)EUE (null)EISTUNG:"F"%
423 T=T+1
424 GOSUB9996
425 GOTO150
430 F=F-F1:IFF<0THENF=0
431 PRINT"[196]AS [212]RAINING LIEF MIES."
432 PRINT"[206]EUE [204]EISTUNG:"F"%
433 T[178]T[170]1
434 [141]9996
435 [137]150
440 [141]9998
441 [153]"(null)ANDUNG: USRUSRUSRUSRUSRUSRUSR"
442 [153]"(null)EISTUNG:"L"%
443 PRINT"[212]RAINIEREN ([202]/[206]) ?"
444 GOSUB9996
445 IFA$="J"THEN450
446 IFA$="N"THEN300
447 GOTO444
450 UG=1:OG=5:GOSUB9990
451 L1=Z2
452 UG=1:OG=7:GOSUB9990
453 IFZ2=1THEN470
454 IFZ2=2THEN470
455 IFZ2=3THEN460
456 IFZ2=4THEN460
457 IFZ2=5THEN460
458 IFZ2=6THEN460
459 IFZ2=7THEN470
460 L=L+L1:IFL>100THENL=100
461 PRINT"[196]AS [212]RAINING LIEF GUT."
462 PRINT"[206]EUE [204]EISTUNG:"L"%
463 T[178]T[170]1
464 [141]9996
465 [137]150
470 L[178]L[171]L1:[139]L[179]0[167]L[178]0
471 [153]"STR$AS (null)RAINING LIEF MIES."
472 [153]"(null)EUE (null)EISTUNG:"L"%
473 T=T+1
474 GOSUB9996
475 GOTO150
500 REM WOCHENPLANUNG
501 GOSUB9998
502 PRINT"[215]OCHENPLANUNG: [183][183][183][183][183][183][183][183][183][183][183][183][183]"
503 PRINT"1 = [193]KTUELLE [208]LANUNG 2 = [206]EUE [208]LANUNG"
504 PRINT"3 = [200]AUPTMENU"
505 INPUT"[215]AS NUN ";X
506 IFX<1ORX>3THEN500
507 IFX=1THEN540
508 IFX=2THEN520
509 IFX=3THEN154
515 PRINT"[196]IES [215]OCHE IST NICHT VERPLANUNGS- MOEGLICH !"
516 GOSUB9996
517 GOTO520
520 GOSUB9998
521 PRINT"[206]EUE [208]LANUNG: [183][183][183][183][183][183][183][183][183][183][183][183]"
522 INPUT"[215]ELCHE [215]OCHE NEU PLANEN";X
523 IFX<1ORX>16THEN520
524 IFX>10ANDX<14THEN515
525 PRINT"[212]RAINING ODER [215]ETTKAMPF ([212]/[215]) ?"
526 GOSUB9996
527 IFA$="T"THEN530
528 IFA$="W"THEN535
529 GOTO526
530 IFX>10THEN533
531 V=X:E$(V)="[212]RAINING"
532 GOTO500
533 V=X-10:F$(V)="[212]RAINING"
534 GOTO500
535 IFX>10THEN538
536 V=X:E$(V)="[215]ETTKAMPF"
537 GOTO500
538 V=X-10:F$(V)="[215]ETTKAMPF"
539 GOTO500
540 GOSUB9998
541 PRINT"[193]KTUELLE [208]LANUNG: [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
542 PRINT"[215]OCHE [208]LANUNG "
543 GOSUB9920
544 PRINT"1 "E$(1)
545 PRINT"2 "E$(2)
546 PRINT"3 "E$(3)
547 PRINT"4 "E$(4)
548 PRINT"5 "E$(5)
549 PRINT"6 "E$(6)
550 PRINT"7 "E$(7)
551 PRINT"8 "E$(8)
552 PRINT"9 "E$(9)
553 PRINT"10 "E$(10)
554 PRINT"11 FREI"
555 PRINT"12 [215][205]-[203]LEINSCHANZE"
556 PRINT"13 [215][205]-[199]ROSSSCHANZE"
557 PRINT"14 "F$(4)
558 PRINT"15 "F$(5)
559 PRINT"16 "F$(6)
560 GOSUB9996
561 GOTO500
600 REM NAECHSTE WOCHE
601 T=6:XA=2:GOTO1070
650 REM ENDE
651 GOSUB9998
652 PRINT"[197]CHT ([202]/[206]) ?????????"
653 GOSUB9996
654 IFA$="N"THEN152
655 SYS64738
700 REM EREIGNISSE
701 UG=1:OG=7:GOSUB9990
702 IFZ2=1THEN710
703 IFZ2=2THEN720
704 IFZ2=3THEN730
705 IFZ2=4THEN740
706 IFZ2=5THEN750
707 IFZ2=6OR7THEN761
710 GOSUB9998:PRINT"[193]NFAHRT-[212]RAINING: [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
711 UG=1:OG=3:GOSUB9990
712 IFZ2=1THEN717
713 PRINT"[196]EIN [212]RAINER MEINT,DU SOLLTEST OEFTER IM[211]TEHEN SCHEISSEN.[214]IELLEICHT WUERDE"
714 PRINT"SICH DANN ENDLICH MAL DEINE [193]NFAHRT VER-BESSERN ! ([193]NFAHRT = -5 %)"
715 A=A-5:T=T+1:IFA<0THENA=0
716 GOSUB9996:GOTO150
717 PRINT"[212]OP-ELEGANT GLEITEST DU DEN [193]BLAUF HINUNTER ! [196]EIN [212]RAINER FREUT SICH"
718 PRINT"UEBER 5 % [214]ERBESSERUNG !":A=A+5:IFA>100THENA=100
719 T=T+1:GOSUB9996:GOTO150
720 GOSUB9998:PRINT"[193]BSPRUNG-[212]RAINING: [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
721 UG=1:OG=3:GOSUB9990:IFZ2=1THEN726
722 PRINT"[203]OPFSCHUETTELND MEINT DEIN [212]RAINER,DASS DU EINFACH NICHT AUS DEM [193]RSCH"
723 PRINT"KOMMST.[196]EIN [193]BSPRUNG VERSCHLECHTERT SICHUM HORRENDE 5 % !"
724 B=B-5:IFB<0THENB=0
725 T=T+1:GOSUB9996:GOTO150
726 PRINT"[215]IE EIN [198]ROSCH HEBST DU VOM [211]CHANZEN- TISCH AB ! [196]U SIEHST DIE 5%IGE"
727 PRINT"[214]ERBESSERUNG GENAU SO GERNE,WIE DEIN [212]RAINER !":B=B+5:T=T+1
728 IFB>100THENB=100
729 GOSUB9996:GOTO150
730 GOSUB9998:PRINT"[198]LUGPHASEN-[212]RAINING: [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
731 UG=1:OG=3:GOSUB9990
732 IFZ2=1THEN737
733 PRINT"[197]IN [211]TEIN FAELLT VOM [194]ODEN ... ([198]LUG- PHASE = -5 %)"
735 F=F-5:IFF<0THENF=0
736 T=T+1:GOSUB9996:GOTO150
737 PRINT"[196]ORT AM [200]IMMEL - EIN [213][198][207] ? [197]IN [211]UPERMAN?[206]EIN,ES IST "VN$" "NN$" !"
738 PRINT"([198]LUGPHASE = +5 %)":F=F+5:T=T+1:IFF>100THENF=100
739 GOSUB9996:GOTO150
740 GOSUB9998:PRINT"[204]ANDUNGS-[212]RAINING: [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
741 UG=1:OG=3:GOSUB9990
742 IFZ2=1THEN746
743 PRINT"[211]PLATSCH !!! ([204]ANDUNG = -5 %)"
744 L=L-5:IFL<0THENL=0
745 T=T+1:GOSUB9996:GOTO150
746 PRINT"[199]RAZIOES WIE EIN [215]EISSFLOG,[198]INNE,[202]APANERODER WAS ES SONST NOCH GIBT - DEIN"
747 PRINT"[212]RAINER IST STARK BEGEISTERT ! ([204]ANDUNG = +5 %)":L=L+5:T=T+1
748 IFL>100THENL=100
749 GOSUB9996:GOTO150
750 GOSUB9998:PRINT"([206]ERVENDE) [197]RFAHRUNG: [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
751 UG=1:OG=3:GOSUB9990:IFZ2=1THEN756
752 PRINT"[193]LS DU HEUTE BEIM [212]RAINING GANZ OBEN STANDEST,BEKAMST DU PLOETZLICH"
753 PRINT"EINEN [193]NFALL PANISCHER [200]OEHENANGST.[196]EIN [212]RAINER SIEHT DIES FUER DEINE [211]KI-"
754 PRINT"[211]PRUNG-[203]ARRIERE NICHT GERADE POSITIV.":N=N-5:IFN<0THENN=0
755 T=T+1:GOSUB9996:GOTO150
756 PRINT"[215]IE DU BEIM HEUTIGEN [212]RAINING VON EINER [215]INDBOEE ERFASST WURDEST UND FAST"
757 PRINT"GANZ,GANZ SCHLIMM GESTUERZT WAERST,HAST DU BLITZSCHNELL REAGIERT UND DEN"
758 PRINT"[211]TURZ WUNDERBAR ABGEFANGEN.[196]EIN [212]RAINER MEINT,DIES ZEIGTE DEINE [203]LASSE !"
759 N=N+5:T=T+1:IFN>100THENN=100
760 GOSUB9996:GOTO150
761 GOSUB9998:PRINT"[197]INSCHNITT DER [203]ARRIERE: [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
762 UG=1:OG=3:GOSUB9990:IFZ2=1THEN766
763 PRINT"[196]ER HEUTIGE SCHWERE [211]TURZ BEENDETE DEINE[211]AISON VORZEITIG.[196]IE SCHWERE [214]ER-"
764 PRINT"LETZUNG DUERFTE AUCH DEIN [203]ARRIEREENDE NAEHER GEBRACHT HABEN !"
765 GOTO800
766 PRINT"[198]RISCH WIE NIE FUEHLST DU DICH DERZEIT. [196]EIN [203]ARRIEREENDE SOLL NOCH EIN"
767 PRINT"BISSCHEN LAENGER ALS GEPLANT WARTEN !":GE=GE+1:IFGE>30THENGE=30
768 T=T+1:GOSUB9996:GOTO150
800 T=8:W=16:GE=GE-1
801 UG=1:OG=10:GOSUB9990:IFWM$(AL-19)<>""THEN803
802 WM$(AL-19)=V1$(Z2):W8$(AL-19)=N1$(Z2):W9$(AL-19)=M1$(Z2)
820 UG=1:OG=10:GOSUB9990:IFMW$(AL-19)<>""THEN822
821 MW$(AL-19)=V2$(Z2):M8$(AL-19)=N2$(Z2):M9$(AL-19)=M2$(Z2)
822 UG=1:OG=9:GOSUB9990:IFOT$(AL-19)<>""THEN824
823 OT$(AL-19)=VN$(Z2):T8$(AL-19)=NN$(Z2):T9$(AL-19)=MM$(Z2)
824 UG=1:OG=9:GOSUB9990:IFFW$(AL-19)<>""THEN826
825 FW$(AL-19)=VN$(Z2):F8$(AL-19)=NN$(Z2):F9$(AL-19)=MM$(Z2)
826 RE$="[202]":GOSUB1370:GOSUB9996:GOTO150
900 AB=-4:REM STATISTIK
901 AB=AB+5:GOSUB9998:GOSUB9910
902 PRINT"[212]OURNEE-[211]IEGER: [183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
903 FORZ=ABTOAL-19
904 PRINTY+Z+19" : "OT$(Z)" "T8$(Z)
905 PRINT"[206]ATION : "T9$(Z)"
906 [139]Z[178]AB[170]4[167]909
907 [130]Z
908 [141]9996:[137]910
909 [141]9996:[137]901
910 AB[178][171]4
911 AB[178]AB[170]5:[141]9998:[141]9910
912 [153]"ASCLUG-(null)IEGER: USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
913 [129]Z[178]AB[164]AL[171]19
914 [153]Y[170]Z[170]19" : "FW$(Z)" "F8$(Z)
915 [153]"(null)ATION : "F9$(Z)"
916 IFZ=AB+4THEN919
917 NEXTZ
918 GOSUB9996:GOTO920
919 GOSUB9996:GOTO911
920 AB=-4
921 AB=AB+5:GOSUB9998:GOSUB9910
922 PRINT"[215]ELTMEISTER-[203]LEINSCHANZE: [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
923 FORZ=ABTOAL-19
924 PRINTY+Z+19" : "WM$(Z)" "W8$(Z)
925 PRINT"[206]ATION : "W9$(Z)"
926 [139]Z[178]AB[170]4[167]929
927 [130]Z
928 [141]9996:[137]940
929 [141]9996:[137]921
940 AB[178][171]4
941 AB[178]AB[170]5:[141]9998:[141]9910
942 [153]"(null)ELTMEISTER-CHR$ROSSSCHANZE: USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
943 [129]Z[178]AB[164]AL[171]19
944 [153]Y[170]Z[170]19" : "MW$(Z)" "M8$(Z)
945 [153]"(null)ATION : "M9$(Z)"
946 IFZ=AB+4THEN949
947 NEXTZ
948 GOSUB9996:GOTO950
949 GOSUB9996:GOTO941
950 GOTO200
1000 REM TAG 6
1001 IFW>10THEN1010
1002 IFE$(W)="[212]RAINING"THEN1070
1003 IFE$(W)="[215]ETTKAMPF"THEN1050
1010 X=W-10
1011 IFF$(X)="[212]RAINING"THEN1070
1012 IFF$(X)="[215]ETTKAMPF"THEN1050
1013 IFF$(X)="[215][205]"THEN3000
1050 V$="":REM DIFFERENZIERUNG
1053 IFW=9THEN1080
1054 IFW=16THEN1080
1055 GOTO1100
1070 IFW=11THEN1072
1071 RC$="C":RF$="[202]":GOSUB9800:GOTO1050
1072 UI=2:GOTO154
1080 REM FLIEGEN
1081 V$="[202]"
1082 GOTO1100
1100 REM WETTKAMPF
1101 X1=0:X2=0:X3=0:S1=9999:S2=9999:S3=9999:RA$="":RD$="":IFRC$="C"THEN1103
1102 GOSUB9998:PRINT"[209]UALIFIKATION 1.[212]AG: [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
1103 FORZ=1TO29:IFZ>10THEN1123
1104 UG=1:OG=2:GOSUB9990
1105 WE(Z)=A(Z)+2*B(Z)+2*F(Z)+L(Z)+N(Z)
1106 WE(Z)=WE(Z)/7
1107 WE(Z)=WE(Z)*Z1:IFV$="[202]"THENWE(Z)=WE(Z)+50:IFRA$="WM"THENWE(Z)=WE(Z)-20
1108 IFRA$="W[205]"THENWE(Z)=WE(Z)+20:UG=0.1:OG=1:GOSUB9990
1109 H(Z)=2*F(Z)+L(Z)
1110 H(Z)=H(Z)/15
1111 H(Z)=H(Z)*Z1
1112 P1=WE(Z)+H(Z)
1113 P(Z)=INT(P1):IFDN$(Z)="OK"THENRETURN
1114 NEXTZ
1123 V=Z-10:IFZ>20THEN1143
1124 UG=1:OG=2:GOSUB9990
1125 W2(V)=A2(V)+2*B2(V)+2*F2(V)+L2(V)+N2(V)
1126 W2(V)=W2(V)/7
1127 W2(V)=W2(V)*Z1:IFV$="[202]"THENW2(V)=W2(V)+50:IFRA$="WM"THENW2(V)=W2(V)-20
1128 IFRA$="W[205]"THENW2(V)=W2(V)+20:UG=0.1:OG=1:GOSUB9990
1129 H2(V)=2*F2(V)+L2(V)
1130 H2(V)=H2(V)/15
1131 H2(V)=H2(V)*Z1
1132 P1=W2(V)+H2(V)
1133 P2(V)=INT(P1):IFD2$(V)="OK"THENRETURN
1134 NEXTZ
1143 X=Z-20
1144 UG=1:OG=2:GOSUB9990
1145 W3(X)=A3(X)+2*B3(X)+2*F3(X)+L3(X)+N3(X)
1146 W3(X)=W3(X)/7
1147 W3(X)=W3(X)*Z1:IFV$="[202]"THENW3(X)=W3(X)+50:IFRA$="WM"THENW3(X)=W3(X)-20
1148 IFRA$="W[205]"THENW3(X)=W3(X)+20:UG=0.1:OG=1:GOSUB9990
1149 H3(X)=2*F3(X)+L3(X)
1150 H3(X)=H3(X)/15
1151 H3(X)=H3(X)*Z1
1152 P1=W3(X)+H3(X)
1153 P3(X)=INT(P1):IFD3$(X)="OK"THENRETURN
1154 NEXTZ
1163 IFRC$="C"THEN7000
1164 UG=1:OG=2:GOSUB9990
1165 W4=A+2*B+2*F+L+N
1166 W4=W4/7
1167 W4=W4*Z1:IFV$="[202]"THENW4=W4+50:IFRA$="WM"THENW4=W4-20
1168 IFRA$="W[205]"THENW4=W4+20:UG=0.1:OG=1:GOSUB9990
1169 H4=2*F+L
1170 H4=H4/15
1171 H4=H4*Z1
1172 P1=W4+H4
1173 P4=INT(P1):IFDN$="OK"THENRETURN
1180 IFX1=1THEN1190:REM SORTIERUNG
1181 Z=0
1182 Z=Z+1
1183 FORS=Z+1TO10
1184 IFP(Z)
9THEN1182
1188 S1$=V1$(10):L1$=N1$(10):S1=P(10):W1=WE(10):MA$=M1$(10):Z=10
1190 IFX2=1THEN1200
1191 R=0
1192 R=R+1
1193 FORS=R+1TO10
1194 IFP2(R)9THEN1192
1198 S2$=V2$(10):L2$=N2$(10):S2=P2(10):W2=W2(10):MB$=M2$(10):R=10
1200 IFX3=1THEN1209
1201 K=0
1202 K=K+1
1203 FORS=K+1TO9
1204 IFP3(K)8THEN1202
1208 S3$=VN$(9):L3$=NN$(9):S3=P3(9):W3=W3(9):MC$=MM$(9):K=9
1209 X1=1:X2=1:X3=1
1210 IFS1>S2THEN1212
1211 IFS2>S3THEN1214
1212 IFS1>S3THEN1215
1213 IFS3>P4THEN1230
1214 IFS2>P4THEN1225
1215 IFS1>P4THEN1220
1216 IFWE$="OK"THEN1300
1217 C=C+1:S(C)=P4:S$(C)=VN$:L$(C)=NN$:W1(C)=W4:IFRB$="[202]"THENAP=AP+(11-C)
1218 P4=-C:DN$="OK":M$(C)=N$:IFC=10THEN1249
1219 GOTO1210
1220 IFWE$="OK"THEN1305
1221 C=C+1:S(C)=S1:S$(C)=S1$:L$(C)=L1$:W1(C)=W1:M$(C)=MA$
1222 DN$(Z)="OK":P(Z)=-C:IFRB$="[202]"THENA4(Z)=A4(Z)+(11-C)
1223 IFC=10THEN1249
1224 X1=0:GOTO1180
1225 IFWE$="OK"THEN1310
1226 C=C+1:S(C)=S2:S$(C)=S2$:L$(C)=L2$:W1(C)=W2:M$(C)=MB$
1227 D2$(R)="OK":P2(R)=-C:IFRB$="[202]"THENA5(Z)=A5(Z)+(11-C)
1228 IFC=10THEN1249
1229 X2=0:GOTO1180
1230 IFWE$="OK"THEN1315
1231 C=C+1:S(C)=S3:S$(C)=S3$:L$(C)=L3$:W1(C)=W3:M$(C)=MC$
1232 D3$(K)="OK":P3(K)=-C:IFRB$="[202]"THENA6(Z)=A6(Z)+(11-C)
1233 IFC=10THEN1249
1234 X3=0:GOTO1180
1249 IFRC$="C"THEN5000
1250 IFRA$="[202]"THEN2070:REM ERGEBNISSE
1251 PRINT"[211]PRINGER/[206]ATION [215]EITE/[208]UNKTE":WE$="OK":C=0
1252 GOSUB9920:WS=WS+1
1253 FORZ=1TO10
1254 PRINTZ:PRINT"[145]."LEFT$(S$(Z),1)"."L$(Z)" ("LEFT$(M$(Z),3)")
1255 [153]"ON"[181](W1(Z))
1256 [153]"ONM /"S(Z)
1257 [130]Z
1258 [141]9996
1259 [141]9700
1260 X1[178]0:X2[178]0:X3[178]0:[139]DN$[178]"OK"[167]N[178]N[170]2:[143] DURCHGAENGE
1261 [129]Z[178]1[164]10
1262 [139]DN$(Z)[178]"OK"[167][141]1104
1263 [139]WS[178]2[167]P(Z)[178]P(Z)[170]P4(Z)
1264 [130]Z
1271 [129]V[178]1[164]10
1272 [139]D2$(V)[178]"OK"[167][141]1124
1273 [139]WS[178]2[167]P2(V)[178]P2(V)[170]P6(V)
1274 [130]V
1281 [129]X[178]1[164]9
1282 [139]D3$(X)[178]"OK"[167][141]1144
1283 [139]WS[178]2[167]P3(X)[178]P3(X)[170]P7(X)
1284 [130]X
1285 [139]DN$[178]"OK"[167][141]1164
1286 [139]WS[178]2[167]P4[178]P4[170]P8
1287 [139]DN$[179][177]"OK"[175]RF$[179][177]"MID$"[167]N[178]N[171]2
1288 [139]N[177]100[167]N[178]100
1289 [139]N[179]0[167]N[178]0
1290 [137]1180
1300 C[178]C[170]1:[139]W[178]4[176]W[178]5[167]TP[178]TP[170]P4:[143] WERTUNGSGAENGE
1301 [139]WS[178]2[167]N[178]N[170](6[171]C):[139]V$[178]"MID$"[167]FP[178]FP[170](11[171]C)
1302 S(C)[178]P4:S$(C)[178]VN$:L$(C)[178]NN$:W1(C)[178]W4:P8[178]P4:P4[178]0:[139]WS[178]2[167]AP[178]AP[170](11[171]C)
1303 M$(C)[178]N$:[139]C[178]10[167]1350
1304 [137]1210
1305 C[178]C[170]1:S(C)[178]S1:S$(C)[178]S1$:L$(C)[178]L1$:W1(C)[178]W1:P4(Z)[178]S1:P(Z)[178]0:M$(C)[178]MA$
1306 [139]W[178]4[176]W[178]5[167]T1(Z)[178]T1(Z)[170]S1:[139]V$[178]"MID$"[167]F4(Z)[178]F4(Z)[170](11[171]C)
1307 [139]WS[178]2[167]A4(Z)[178]A4(Z)[170](11[171]C)
1308 [139]C[178]10[167]1350
1309 X1[178]0:[137]1180
1310 C[178]C[170]1:S(C)[178]S2:S$(C)[178]S2$:L$(C)[178]L2$:W1(C)[178]W2:P6(R)[178]S2:P2(R)[178]0:M$(C)[178]MB$
1311 [139]W[178]4[176]W[178]5[167]T2(R)[178]T2(R)[170]S2:[139]V$[178]"MID$"[167]F5(R)[178]F5(R)[170](11[171]C)
1312 [139]WS[178]2[167]A5(R)[178]A5(R)[170](11[171]C)
1313 [139]C[178]10[167]1350
1314 X2[178]0:[137]1180
1315 C[178]C[170]1:S(C)[178]S3:S$(C)[178]S3$:L$(C)[178]L3$:W1(C)[178]W3:P7(K)[178]S3:P3(K)[178]0:M$(C)[178]MC$
1316 [139]W[178]4[176]W[178]5[167]T3(K)[178]T3(K)[170]S3:[139]V$[178]"MID$"[167]F6(K)[178]F6(K)[170](11[171]C)
1317 [139]WS[178]2[167]A6(K)[178]A6(K)[170](11[171]C)
1318 [139]C[178]10[167]1350
1319 X3[178]0:[137]1180
1350 [139]RC$[178]"C"[167]5005
1351 [141]9998:[153]WS".STR$URCHGANG USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
1352 [153]"(null)PRINGER/(null)ATION (null)EITE/(null)UNKTE":C[178]0
1353 [141]9920
1354 [129]Z[178]1[164]10
1355 [153]Z:[153]"ON."[200](S$(Z),1)"."L$(Z)" ("[200](M$(Z),3)")
1356 PRINT"[145]"INT(W1(Z)):IFZ=1ANDWS=2THENGOSUB15000
1357 PRINT"[145]M /"S(Z)
1358 NEXTZ
1359 S(10)=0:GOSUB9996
1360 IFWS=2THEN1370
1361 WS=WS+1:GOTO1260
1370 REM NACHWETTNULL
1371 WE$="":DN$="":WS=0
1372 FORZ=1TO10
1373 DN$(Z)=""
1374 NEXTZ
1382 FORZ=1TO10
1383 D2$(Z)=""
1384 NEXTZ
1392 FORZ=1TO9
1393 D3$(Z)=""
1394 NEXTZ
1395 TA=TA+1:IFRE$="[202]"THENRETURN
1396 IFTA=2THEN1400
1397 X1=0:X2=0:X3=0:S1=9999:S2=9999:S3=9999:GOSUB9998
1398 IFRC$="C"THENGOTO154
1399 PRINT"[209]UALIFIKATION 2.[212]AG: [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]":GOTO1103
1400 V$="":REM DIFFERENZIERUNG
1401 IFW=5THEN1410
1402 IFW=16THEN1510
1403 IFRA$="[202]"THEN200
1404 IFRA$="[215]M"THENGOTO3010
1405 IFRC$="C"THEN150
1406 IFRA$="WM"THEN1408
1407 IFRD$="[202]"THEN200
1408 T=8:GOTO150
1409 T=7:GOTO150
1410 IFTB=1THEN1407:REM TOURNEEWERTUNG
1411 GOSUB9998:PRINT"[212]OURNEE - [199]ESAMTWERTUNG: [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
1412 GOSUB2200
1413 X1=0:X2=0:X3=0:RA$="[202]":RB$="[202]":GOTO1180
1510 IFTB=1THEN1407:REM FLUGWERTUNG
1511 GOSUB9998:PRINT"[198]LIEGEN - [199]ESAMTWERTUNG: [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
1512 GOSUB2300
1513 X1=0:X2=0:X3=0:RA$="[202]":RB$="[202]":GOTO1180
2000 REM RANGLISTE
2001 GOSUB9998:PRINT"[210]ANGLISTE [183][183][183][183][183][183][183][183][183]":GOSUB2100
2002 X1=0:X2=0:X3=0:RA$="[202]":RD$="[202]":GOTO1180
2070 PRINT"[211]PRINGER/[206]ATION [208]UNKTE":IFXA=1THENRETURN
2071 PRINT"[145][145]":GOSUB9920:C=0:RB$=""
2072 FORZ=1TO10
2073 PRINTZ:PRINT"[145]. "LEFT$(S$(Z),1)"."L$(Z)" ("LEFT$(M$(Z),3)")
2075 [153]"ON"S(Z):[139]Z[178]1[167][141]6000
2076 [130]Z
2077 [141]9996
2079 WS[178]2:TA[178]1:TB[178]1:[137]1370
2100 [143] UMLEITUNG
2102 [129]Z[178]1[164]10
2103 DN$(Z)[178]"OK":P1[178]A4(Z):[141]1113
2104 [130]Z
2112 [129]V[178]1[164]10
2113 D2$(V)[178]"OK":P1[178]A5(V):[141]1133
2114 [130]V
2122 [129]X[178]1[164]10
2123 D3$(X)[178]"OK":P1[178]A6(X):[141]1153
2124 [130]X
2125 DN$[178]"OK":P1[178]AP:[141]1173
2126 [142]
2200 [143] UMLEITUNG
2202 [129]Z[178]1[164]10
2203 DN$(Z)[178]"OK":P1[178]T1(Z):T1(Z)[178]0:[141]1113
2204 [130]Z
2212 [129]V[178]1[164]10
2213 D2$(V)[178]"OK":P1[178]T2(V):T2(V)[178]0:[141]1133
2214 [130]V
2222 [129]X[178]1[164]10
2223 D3$(X)[178]"OK":P1[178]T3(X):T3(X)[178]0:[141]1153
2224 [130]X
2225 DN$[178]"OK":P1[178]TP:TP[178]0:[141]1173
2226 [142]
2300 [143] UMLEITUNG
2302 [129]Z[178]1[164]10
2303 DN$(Z)[178]"OK":P1[178]F4(Z):F4(Z)[178]0:[141]1113
2304 [130]Z
2312 [129]V[178]1[164]10
2313 D2$(V)[178]"OK":P1[178]F5(V):F5(V)[178]0:[141]1133
2314 [130]V
2322 [129]X[178]1[164]10
2323 D3$(X)[178]"OK":P1[178]F6(X):F6(X)[178]0:[141]1153
2324 [130]X
2325 DN$[178]"OK":P1[178]FP:FP[178]0:[141]1173
2326 [142]
3000 [139]W[178]13[167]3010:[143] WM
3001 [141]9998:[153]"(null)(null)-(null)LEINSCHANZE"Y[170]AL": USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
3002 X1[178]0:X2[178]0:X3[178]0:S1[178]9999:S2[178]9999:S3[178]9999:RA$[178]"WM":TA[178]1:UI[178]2:[137]1103
3010 [141]9998:[153]"(null)(null)-CHR$ROSSSCHANZE"Y[170]AL": USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
3011 X1[178]0:X2[178]0:X3[178]0:S1[178]9999:S2[178]9999:S3[178]9999:RA$[178]"W(null)":TA[178]1:[137]1103
5000 [143] PSEUDO-WETTKAMPF
5001 WE$[178]"OK":C[178]0:WS[178]WS[170]1:[137]1260
5005 C[178]0:S(10)[178]0:[139]WS[178]2[175]T[178]7[167]TA[178]1:[139]WS[178]2[175]T[178]7[167]UI[178]2:[141]9998:[141]9996
5006 [139]WS[178]2[167]1370
5007 WS[178]WS[170]1:[137]1260
6000 [139]W[178]5[167]6003
6001 [139]W[178]16[167]6004
6002 [142]
6003 OT$(AL[171]19)[178]S$(Z):T8$(AL[171]19)[178]L$(Z):T9$(AL[171]19)[178]M$(Z):[142]
6004 FW$(AL[171]19)[178]S$(Z):F8$(AL[171]19)[178]L$(Z):F9$(AL[171]19)[178]M$(Z):[142]
7000 P4[178][171]999:[137]1180
7005 [139]UI[178]2[167]157
7006 [141]9998:[137]1000
8032 Z[178]1:[141]1104:[142]
8033 Z[178]2:[141]1104:[142]
8034 Z[178]3:[141]1104:[142]
8035 Z[178]4:[141]1104:[142]
8036 Z[178]5:[141]1104:[142]
8037 Z[178]6:[141]1104:[142]
8052 Z[178]7:[141]1104:[142]
8053 Z[178]8:[141]1104:[142]
8054 Z[178]9:[141]1104:[142]
8055 Z[178]10:[141]1104:[142]
8056 V[178]1:[141]1124:[142]
8057 V[178]2:[141]1124:[142]
8072 V[178]3:[141]1124:[142]
8073 V[178]4:[141]1124:[142]
8074 V[178]5:[141]1124:[142]
8075 V[178]6:[141]1124:[142]
8076 X[178]7:[141]1144:[142]
8092 V[178]7:[141]1124:[142]
8093 V[178]8:[141]1124:[142]
8094 V[178]9:[141]1124:[142]
8095 V[178]10:[141]1124:[142]
8096 X[178]1:[141]1144:[142]
8097 X[178]8:[141]1144:[142]
8098 X[178]9:[141]1144:[142]
8112 X[178]2:[141]1144:[142]
8113 X[178]3:[141]1144:[142]
8114 X[178]4:[141]1144:[142]
8115 X[178]5:[141]1144:[142]
8116 X[178]6:[141]1144:[142]
9700 [143] NULLMACHEN
9701 [129]Z[178]1[164]10
9702 WE(Z)[178]0:H(Z)[178]0:P(Z)[178]0:P4(Z)[178]0
9703 [130]Z
9711 [129]Z[178]1[164]10
9712 W2(Z)[178]0:H2(Z)[178]0:P2(Z)[178]0:P6(Z)[178]0
9713 [130]Z
9721 [129]Z[178]1[164]9
9722 W3(Z)[178]0:H3(Z)[178]0:P3(Z)[178]0:P7(Z)[178]0
9723 [130]Z
9725 W4[178]0:H4[178]0:P4[178]0:P8[178]0:[139]N[177]100[167]N[178]100
9726 [139]N[179]0[167]N[178]0
9728 [142]
9800 [141]9998
9801 [153]"PEEKITTE WARTEN ..."
9802 [142]
9900 [143] ZUFALLSGENERATOR
9910 [153]"(null)TATISTIK: USRUSRUSRUSRUSRUSRUSRUSRUSR":[142]
9920 [153]"ONUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR":[142]
9990 Z1[178]UG[170][187](0)[172](OG[171]UG):Z2[178][181](Z1)
9991 [142]
9996 [161]A$:[139]A$[178]""[167]9996
9997 [142]
9998 [153]"LOADPRINT# ASCLYIN' LEFT$IGH "
9999 [142]
10000 [143] DATEN ZU BEGINN
10001 X[178]1
10002 E$(X)[178]"(null)RAINING"
10003 X[178]X[170]1
10004 [139]X[178]11[167]10010
10006 [137]10002
10010 X[178]1
10011 F$(X)[178]"(null)RAINING"
10012 X[178]X[170]1
10013 [139]X[178]2[176]X[178]3[167]10020
10014 [139]X[178]7[167][142]
10015 [137]10011
10020 F$(X)[178]"(null)(null)"
10021 X[178]X[170]1
10022 [137]10013
10712 RC$[178]"C":[141]9800:[137]1100
11000 [143] SPRINGERANFANG
11001 [129]Z[178]1[164]29:[139]Z[177]10[167]11004
11002 A(Z)[178]A:B(Z)[178]B:F(Z)[178]F:L(Z)[178]L:N(Z)[178]N
11003 [130]Z
11004 V[178]Z[171]10:[139]Z[177]20[167]11007
11005 A2(V)[178]A:B2(V)[178]B:F2(V)[178]F:L2(V)[178]L:N2(V)[178]N
11006 [130]Z
11007 X[178]Z[171]20
11008 A3(X)[178]A:B3(X)[178]B:F3(X)[178]F:L3(X)[178]L:N3(X)[178]N
11009 [130]Z
11010 [143] SPRINGERNAMEN
11011 V1$(1)[178]"(null)AZUYOSHI":N1$(1)[178]"ASCUNAKI":M1$(1)[178]"MID$APAN"
11012 V1$(2)[178]"(null)AKANOBU":N1$(2)[178]"(null)KABE":M1$(2)[178]"MID$APAN"
11013 V1$(3)[178]"LEFT$IROYAH":N1$(3)[178]"(null)AITOH":M1$(3)[178]"MID$APAN"
11014 V1$(4)[178]"(null)ORIAKI":N1$(4)[178]"(null)ASAI":M1$(4)[178]"MID$APAN"
11015 V1$(5)[178]"(null)ASAHIRO":N1$(5)[178]"LEFT$ARADA":M1$(5)[178]"MID$APAN"
11016 V1$(6)[178]"(null)ENJI":N1$(6)[178]"(null)UDA":M1$(6)[178]"MID$APAN"
11017 V1$(7)[178]"STR$IETER":N1$(7)[178]"(null)HOMA":M1$(7)[178]"CHR$ERMANY"
11018 V1$(8)[178]"MID$ENS":N1$(8)[178]"(null)EISSFLOG":M1$(8)[178]"CHR$ERMANY"
11019 V1$(9)[178]"LENHRISTOPH":N1$(9)[178]"STR$UFFNER":M1$(9)[178]"CHR$ERMANY"
11020 V1$(10)[178]"(null)ARTIN":N1$(10)[178]"(null)CHMITT":M1$(10)[178]"CHR$ERMANY"
11021 V2$(1)[178]"LEFT$ANS-MID$OERG":N2$(1)[178]"MID$AEKLE":M2$(1)[178]"CHR$ERMANY"
11022 V2$(2)[178]"LEFT$ORST":N2$(2)[178]"LEFT$ASCHMICH":M2$(2)[178]"CHR$ERMANY"
11023 V2$(3)[178]"ATNRI-(null)EKKA":N2$(3)[178]"(null)IKKOLA":M2$(3)[178]"ASCINLAND"
11024 V2$(4)[178]"(null)ONI":N2$(4)[178]"(null)IEMINEN":M2$(4)[178]"ASCINLAND"
11025 V2$(5)[178]"(null)ATTI":N2$(5)[178]"(null)YKAENEN":M2$(5)[178]"ASCINLAND"
11026 V2$(6)[178]"MID$ANI":N2$(6)[178]"(null)OININEN":M2$(6)[178]"ASCINLAND"
11027 V2$(7)[178]"(null)YLVAIN":N2$(7)[178]"ASCREIHOLZ":M2$(7)[178]"(null)UISSE"
11028 V2$(8)[178]"MID$IM":N2$(8)[178]"LEFT$OLLAND":M2$(8)[178]"(null)(null)ATN"
11029 V2$(9)[178]"MID$AN":N2$(9)[178]"PEEKOKLOEV":M2$(9)[178]"(null)WEDEN"
11030 V2$(10)[178]"(null)RIMOSZ":N2$(10)[178]"(null)ETERKA":M2$(10)[178]"(null)LOWENIA"
11031 VN$(1)[178]"ATNDAM":NN$(1)[178]"(null)ALYSZ":MM$(1)[178]"(null)OLAND"
11032 VN$(2)[178]"(null)ARTIN":NN$(2)[178]"LEFT$OELLWARTH":MM$(2)[178]"ATNUSTRIA"
11033 VN$(3)[178]"(null)EINHARD":NN$(3)[178]"(null)CHWARZENBERGER":MM$(3)[178]"ATNUSTRIA"
11034 VN$(4)[178]"ATNNDREAS":NN$(4)[178]"CHR$OLDBERGER":MM$(4)[178]"ATNUSTRIA"
11035 VN$(5)[178]"VALRNST":NN$(5)[178]"(null)ETTORI":MM$(5)[178]"ATNUSTRIA"
11036 VN$(6)[178]"ATNNDREAS":NN$(6)[178]"ASCELDER":MM$(6)[178]"ATNUSTRIA"
11037 VN$(7)[178]"MID$ANNE":NN$(7)[178]"ATNHONEN":MM$(7)[178]"ASCINLAND"
11038 VN$(8)[178]"VALSPEN":NN$(8)[178]"PEEKREDESEN":MM$(8)[178]"(null)ORWAY"
11039 VN$(9)[178]"(null)ICOLAS":NN$(9)[178]"STR$ESUM":MM$(9)[178]"ASCRANCE"
11040 [142]
12000 [143] JAHR
12001 AL[178]AL[170]1:W[178]1:XA[178]1:[141]13000:XA[178]0:[139]GE[178]AL[167]21000
12002 AP[178]0:A[178]A[173]2:B[178]B[173]2:F[178]F[173]2:L[178]L[173]2:A[178][181](A):B[178][181](B):F[178][181](F):L[178][181](L)
12003 N[178][181](N)
12004 [129]Z[178]1[164]10
12005 A4(Z)[178]0:T1(Z)[178]0:F4(Z)[178]0
12006 A(Z)[178]A(Z)[173]2:A(Z)[178][181](A(Z))
12007 B(Z)[178]B(Z)[173]2:B(Z)[178][181](B(Z))
12008 F(Z)[178]F(Z)[173]2:F(Z)[178][181](F(Z))
12009 L(Z)[178]L(Z)[173]2:L(Z)[178][181](L(Z))
12010 N(Z)[178]N(Z)[173]2:N(Z)[178][181](N(Z))
12011 [130]Z
12013 [129]Z[178]1[164]10
12014 A5(Z)[178]0
12015 A2(Z)[178]A2(Z)[173]2:A2(Z)[178][181](A2(Z))
12016 B2(Z)[178]B2(Z)[173]2:B2(Z)[178][181](B2(Z))
12017 F2(Z)[178]F2(Z)[173]2:F2(Z)[178][181](F2(Z))
12018 L2(Z)[178]L2(Z)[173]2:L2(Z)[178][181](L2(Z))
12019 N2(Z)[178]N2(Z)[173]2:N2(Z)[178][181](N2(Z))
12020 [130]Z
12023 [129]Z[178]1[164]10
12024 A6(Z)[178]0
12025 A3(Z)[178]A3(Z)[173]2:A3(Z)[178][181](A3(Z))
12026 B3(Z)[178]B3(Z)[173]2:B3(Z)[178][181](B3(Z))
12027 F3(Z)[178]F3(Z)[173]2:F3(Z)[178][181](F3(Z))
12028 L3(Z)[178]L3(Z)[173]2:L3(Z)[178][181](L3(Z))
12029 N3(Z)[178]N3(Z)[173]2:N3(Z)[178][181](N3(Z))
12030 [130]Z
13000 [141]9998:[153]"MID$AHRES-(null)ANGLISTE USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
13001 [141]2100:X1[178]0:X2[178]0:X3[178]0:RA$[178]"MID$":[141]1180
13003 [141]9920:C[178]0:RB$[178]""
13004 [129]Z[178]1[164]10
13005 [153]Z:[153]"ON. "[200](S$(Z),1)"."L$(Z)" ("[200](M$(Z),3)")
13006 PRINT"[145]"S(Z)
13007 NEXTZ
13008 GOSUB9996:RE$="[202]":GOSUB1370
13009 RETURN
15000 REM Z=1
15001 IFRA$="WM"THEN15010
15003 IFRA$="W[205]"THEN15030
15004 RETURN
15010 WM$(AL-19)=S$(1):W8$(AL-19)=L$(1):W9$(AL-19)=M$(1)
15011 RETURN
15030 MW$(AL-19)=S$(1):M8$(AL-19)=L$(1):M9$(AL-19)=M$(1)
15031 RETURN
20000 GOSUB9800:REM COMPUTERSPRINGER
20001 FORZ=1TO29:IFZ>10THEN20101
20002 UG=1:OG=5:GOSUB9990
20003 A1=Z2
20004 UG=1:OG=7:GOSUB9990
20005 IFZ2=1THEN20014
20006 IFZ2=2THEN20014
20007 IFZ2=3THEN20012
20008 IFZ2=4THEN20012
20009 IFZ2=5THEN20012
20010 IFZ2=6THEN20012
20011 IFZ2=7THEN20014
20012 A(Z)=A(Z)+A1:IFA(Z)>100THENA(Z)=100
20013 GOTO20022
20014 A(Z)=A(Z)-A1
20015 IFA(Z)<0THENA(Z)=0
20022 UG=1:OG=5:GOSUB9990
20023 B1=Z2
20024 UG=1:OG=7:GOSUB9990
20025 IFZ2=1THEN20034
20026 IFZ2=2THEN20034
20027 IFZ2=3THEN20032
20028 IFZ2=4THEN20032
20029 IFZ2=5THEN20032
20030 IFZ2=6THEN20032
20031 IFZ2=7THEN20034
20032 B(Z)=B(Z)+B1:IFB(Z)>100THENB(Z)=100
20033 GOTO20042
20034 B(Z)=B(Z)-B1
20035 IFB(Z)<0THENB(Z)=0
20042 UG=1:OG=5:GOSUB9990
20043 F1=Z2
20044 UG=1:OG=7:GOSUB9990
20045 IFZ2=1THEN20054
20046 IFZ2=2THEN20054
20047 IFZ2=3THEN20052
20048 IFZ2=4THEN20052
20049 IFZ2=5THEN20052
20050 IFZ2=6THEN20052
20051 IFZ2=7THEN20054
20052 F(Z)=F(Z)+F1:IFF(Z)>100THENF(Z)=100
20053 GOTO20062
20054 F(Z)=F(Z)-F1
20055 IFF(Z)<0THENF(Z)=0
20062 UG=1:OG=5:GOSUB9990
20063 L1=Z2
20064 UG=1:OG=7:GOSUB9990
20065 IFZ2=1THEN20074
20066 IFZ2=2THEN20074
20067 IFZ2=3THEN20072
20068 IFZ2=4THEN20072
20069 IFZ2=5THEN20072
20070 IFZ2=6THEN20072
20071 IFZ2=7THEN20074
20072 L(Z)=L(Z)+L1:IFL(Z)>100THENL(Z)=100
20073 GOTO20082
20074 L(Z)=L(Z)-L1
20075 IFL(Z)<0THENL(Z)=0
20082 UG=1:OG=5:GOSUB9990
20083 N1=Z2
20084 UG=1:OG=7:GOSUB9990
20085 IFZ2=1THEN20094
20086 IFZ2=2THEN20094
20087 IFZ2=3THEN20092
20088 IFZ2=4THEN20092
20089 IFZ2=5THEN20092
20090 IFZ2=6THEN20094
20091 IFZ2=7THEN20094
20092 N(Z)=N(Z)+N1:IFN(Z)>100THENN(Z)=100
20093 GOTO20096
20094 N(Z)=N(Z)-N1
20095 IFN(Z)<0THENN(Z)=0
20096 NEXTZ
20101 V=Z-10:IFZ>20THEN20201
20102 UG=1:OG=5:GOSUB9990
20103 A1=Z2
20104 UG=1:OG=7:GOSUB9990
20105 IFZ2=1THEN20114
20106 IFZ2=2THEN20114
20107 IFZ2=3THEN20112
20108 IFZ2=4THEN20112
20109 IFZ2=5THEN20112
20110 IFZ2=6THEN20112
20111 IFZ2=7THEN20114
20112 A2(V)=A2(V)+A1:IFA2(V)>100THENA2(V)=100
20113 GOTO20122
20114 A2(V)=A2(V)-A1
20115 IFA2(V)<0THENA2(V)=0
20122 UG=1:OG=5:GOSUB9990
20123 B1=Z2
20124 UG=1:OG=7:GOSUB9990
20125 IFZ2=1THEN20134
20126 IFZ2=2THEN20134
20127 IFZ2=3THEN20132
20128 IFZ2=4THEN20132
20129 IFZ2=5THEN20132
20130 IFZ2=6THEN20132
20131 IFZ2=7THEN20134
20132 B2(V)=B2(V)+B1:IFB2(V)>100THENB2(V)=100
20133 GOTO20142
20134 B2(V)=B2(V)-B1
20135 IFB2(V)<0THENB2(V)=0
20142 UG=1:OG=5:GOSUB9990
20143 F1=Z2
20144 UG=1:OG=7:GOSUB9990
20145 IFZ2=1THEN20154
20146 IFZ2=2THEN20154
20147 IFZ2=3THEN20152
20148 IFZ2=4THEN20152
20149 IFZ2=5THEN20152
20150 IFZ2=6THEN20152
20151 IFZ2=7THEN20154
20152 F2(V)=F2(V)+F1:IFF2(V)>100THENF2(V)=100
20153 GOTO20162
20154 F2(V)=F2(V)-F1
20155 IFF2(V)<0THENF2(V)=0
20162 UG=1:OG=5:GOSUB9990
20163 L1=Z2
20164 UG=1:OG=7:GOSUB9990
20165 IFZ2=1THEN20174
20166 IFZ2=2THEN20174
20167 IFZ2=3THEN20172
20168 IFZ2=4THEN20172
20169 IFZ2=5THEN20172
20170 IFZ2=6THEN20172
20171 IFZ2=7THEN20174
20172 L2(V)=L2(V)+L1:IFL2(V)>100THENL2(V)=100
20173 GOTO20182
20174 L2(V)=L2(V)-L1
20175 IFL2(V)<0THENL2(V)=0
20182 UG=1:OG=5:GOSUB9990
20183 N1=Z2
20184 UG=1:OG=7:GOSUB9990
20185 IFZ2=1THEN20194
20186 IFZ2=2THEN20194
20187 IFZ2=3THEN20192
20188 IFZ2=4THEN20192
20189 IFZ2=5THEN20192
20190 IFZ2=6THEN20194
20191 IFZ2=7THEN20194
20192 N2(V)=N2(V)+N1:IFN2(V)>100THENN2(V)=100
20193 GOTO20196
20194 N2(V)=N2(V)-N1
20195 IFN2(V)<0THENN2(V)=0
20196 NEXTZ
20201 X=Z-20
20202 UG=1:OG=5:GOSUB9990
20203 A1=Z2
20204 UG=1:OG=7:GOSUB9990
20205 IFZ2=1THEN20214
20206 IFZ2=2THEN20214
20207 IFZ2=3THEN20212
20208 IFZ2=4THEN20212
20209 IFZ2=5THEN20212
20210 IFZ2=6THEN20212
20211 IFZ2=7THEN20214
20212 A3(X)=A3(X)+A1:IFA3(X)>100THENA3(X)=100
20213 GOTO20222
20214 A3(X)=A3(X)-A1
20215 IFA3(X)<0THENA3(X)=0
20222 UG=1:OG=5:GOSUB9990
20223 B1=Z2
20224 UG=1:OG=7:GOSUB9990
20225 IFZ2=1THEN20234
20226 IFZ2=2THEN20234
20227 IFZ2=3THEN20232
20228 IFZ2=4THEN20232
20229 IFZ2=5THEN20232
20230 IFZ2=6THEN20232
20231 IFZ2=7THEN20234
20232 B3(X)=B3(X)+B1:IFB3(X)>100THENB3(X)=100
20233 GOTO20242
20234 B3(X)=B3(X)-B1
20235 IFB3(X)<0THENB3(X)=0
20242 UG=1:OG=5:GOSUB9990
20243 F1=Z2
20244 UG=1:OG=7:GOSUB9990
20245 IFZ2=1THEN20254
20246 IFZ2=2THEN20254
20247 IFZ2=3THEN20252
20248 IFZ2=4THEN20252
20249 IFZ2=5THEN20252
20250 IFZ2=6THEN20252
20251 IFZ2=7THEN20254
20252 F3(X)=F3(X)+F1:IFF3(X)>100THENF3(X)=100
20253 GOTO20262
20254 F3(X)=F3(X)-F1
20255 IFF3(X)<0THENF3(X)=0
20262 UG=1:OG=5:GOSUB9990
20263 L1=Z2
20264 UG=1:OG=7:GOSUB9990
20265 IFZ2=1THEN20274
20266 IFZ2=2THEN20274
20267 IFZ2=3THEN20272
20268 IFZ2=4THEN20272
20269 IFZ2=5THEN20272
20270 IFZ2=6THEN20272
20271 IFZ2=7THEN20274
20272 L3(X)=L3(X)+L1:IFL3(X)>100THENL3(X)=100
20273 GOTO20282
20274 L3(X)=L3(X)-L1
20275 IFL3(X)<0THENL3(X)=0
20282 UG=1:OG=5:GOSUB9990
20283 N1=Z2
20284 UG=1:OG=7:GOSUB9990
20285 IFZ2=1THEN20294
20286 IFZ2=2THEN20294
20287 IFZ2=3THEN20292
20288 IFZ2=4THEN20292
20289 IFZ2=5THEN20292
20290 IFZ2=6THEN20294
20291 IFZ2=7THEN20294
20292 N3(X)=N3(X)+N1:IFN3(X)>100THENN3(X)=100
20293 GOTO20296
20294 N3(X)=N3(X)-N1
20295 IFN3(X)<0THENN3(X)=0
20296 NEXTZ
20297 RETURN
21000 REM ENDE
21001 GOSUB9998:PRINT"[196]AS [203]ARRIEREENDE IST ERREICHT ..."
21002 GOSUB9996
21003 END